/ Run Magazine ReRun: Super Starter Pak 1 / rerun-super-starter-pak-i-1989-side-b.d64 / define macros

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 01 1c 43 1c 01 00 8b 20 | c2 28 36 35 35 33 33 29 |..C.... |.(65533)|
|00000010| 20 b1 32 35 33 20 a7 20 | 99 22 93 0f 44 45 46 49 | .253 . |."..DEFI|
|00000020| 4e 45 20 4d 41 43 52 4f | 53 20 4d 55 53 54 20 42 |NE MACRO|S MUST B|
|00000030| 45 20 52 55 4e 20 49 4e | 20 36 34 20 4d 4f 44 45 |E RUN IN| 64 MODE|
|00000040| 22 3a 80 00 6d 1c 0a 00 | 8f 20 44 45 46 49 4e 45 |":..m...|. DEFINE|
|00000050| 20 4d 41 43 52 4f 53 20 | 42 59 20 52 4f 42 45 52 | MACROS |BY ROBER|
|00000060| 54 20 52 4f 43 4b 45 46 | 45 4c 4c 45 52 00 94 1c |T ROCKEF|ELLER...|
|00000070| 14 00 99 22 93 20 20 20 | 20 20 20 20 20 20 20 20 |...".   |        |
|00000080| 20 12 20 44 45 46 49 4e | 45 20 4d 41 43 52 4f 53 | . DEFIN|E MACROS|
|00000090| 20 22 3a 99 00 9a 1c 1e | 00 99 00 c8 1c 28 00 99 | ":.....|.....(..|
|000000a0| 22 20 20 20 52 45 46 45 | 52 20 54 4f 20 54 48 45 |"   REFE|R TO THE|
|000000b0| 20 44 4f 43 55 4d 45 4e | 54 41 54 49 4f 4e 20 46 | DOCUMEN|TATION F|
|000000c0| 4f 52 20 54 48 45 20 22 | 00 f7 1c 32 00 99 22 20 |OR THE "|...2.." |
|000000d0| 20 20 49 4e 53 54 52 55 | 43 54 49 4f 4e 53 20 46 |  INSTRU|CTIONS F|
|000000e0| 4f 52 20 55 53 49 4e 47 | 20 54 48 49 53 20 50 52 |OR USING| THIS PR|
|000000f0| 4f 47 52 41 4d 2e 22 00 | 24 1d 3c 00 99 3a 99 22 |OGRAM.".|$.<..:."|
|00000100| 20 20 20 20 20 20 20 20 | 20 12 50 52 45 53 53 20 |        | .PRESS |
|00000110| 41 4e 59 20 4b 45 59 20 | 54 4f 20 43 4f 4e 54 49 |ANY KEY |TO CONTI|
|00000120| 4e 55 45 22 00 38 1d 46 | 00 a1 41 24 3a 8b 20 41 |NUE".8.F|..A$:. A|
|00000130| 24 b2 22 22 a7 20 37 30 | 00 7f 1d 5a 00 86 20 46 |$."". 70|...Z.. F|
|00000140| 4c 41 47 25 28 35 31 29 | 20 3a 20 8f 20 46 4c 41 |LAG%(51)| : . FLA|
|00000150| 47 20 41 52 52 41 59 20 | 49 4e 44 49 43 41 54 45 |G ARRAY |INDICATE|
|00000160| 53 20 49 46 20 41 20 43 | 45 52 54 41 49 4e 20 4d |S IF A C|ERTAIN M|
|00000170| 41 43 52 4f 20 49 53 20 | 44 45 46 49 4e 45 44 00 |ACRO IS |DEFINED.|
|00000180| a8 1d 64 00 86 20 4d 41 | 43 52 4f 24 28 35 31 29 |..d.. MA|CRO$(51)|
|00000190| 20 3a 20 8f 20 48 4f 4c | 44 53 20 4d 41 43 52 4f | : . HOL|DS MACRO|
|000001a0| 20 53 54 52 49 4e 47 53 | 00 f8 1d 6e 00 4d 31 24 | STRINGS|...n.M1$|
|000001b0| b2 22 54 48 49 53 20 43 | 48 41 52 41 43 54 45 52 |."THIS C|HARACTER|
|000001c0| 20 48 41 53 20 42 45 45 | 4e 20 55 53 45 44 2e 20 | HAS BEE|N USED. |
|000001d0| 57 4f 55 4c 44 20 59 4f | 55 20 4c 49 4b 45 20 54 |WOULD YO|U LIKE T|
|000001e0| 4f 20 53 45 4c 45 43 54 | 20 41 4e 4f 54 48 45 52 |O SELECT| ANOTHER|
|000001f0| 20 28 59 2f 4e 29 3f 22 | 00 25 1e 78 00 4d 32 24 | (Y/N)?"|.%.x.M2$|
|00000200| b2 22 48 4f 57 20 4d 41 | 4e 59 20 43 48 41 52 41 |."HOW MA|NY CHARA|
|00000210| 43 54 45 52 53 20 57 49 | 4c 4c 20 42 45 20 49 4e |CTERS WI|LL BE IN|
|00000220| 20 54 48 45 22 00 6e 1e | 82 00 4d 32 24 b2 4d 32 | THE".n.|..M2$.M2|
|00000230| 24 aa 22 20 20 20 20 20 | 20 4d 41 43 52 4f 20 53 |$."     | MACRO S|
|00000240| 54 52 49 4e 47 20 52 45 | 50 52 45 53 45 4e 54 45 |TRING RE|PRESENTE|
|00000250| 44 20 42 59 20 54 48 49 | 53 20 20 20 20 20 20 20 |D BY THI|S       |
|00000260| 20 43 48 41 52 41 43 54 | 45 52 20 3f 20 22 00 9a | CHARACT|ER ? "..|
|00000270| 1e 8c 00 41 b2 37 38 30 | 20 3a 20 58 b2 37 38 31 |...A.780| : X.781|
|00000280| 20 3a 20 59 b2 37 38 32 | 20 3a 20 8f 20 53 59 53 | : Y.782| : . SYS|
|00000290| 20 52 45 47 49 53 54 45 | 52 53 00 b7 1e b4 00 8f | REGISTE|RS......|
|000002a0| 20 53 45 4c 45 43 54 20 | 4d 41 43 52 4f 20 43 48 | SELECT |MACRO CH|
|000002b0| 41 52 41 43 54 45 52 00 | da 1e c8 00 99 22 93 11 |ARACTER.|....."..|
|000002c0| 53 45 4c 45 43 54 20 41 | 20 4d 41 43 52 4f 20 43 |SELECT A| MACRO C|
|000002d0| 48 41 52 41 43 54 45 52 | 2e 22 00 e5 1e d2 00 8d |HARACTER|."......|
|000002e0| 20 31 31 33 30 00 f9 1e | e6 00 8b 20 41 24 b3 b1 | 1130...|... A$..|
|000002f0| 22 2a 22 20 a7 20 33 30 | 30 00 31 1f f0 00 99 22 |"*" . 30|0.1...."|
|00000300| 57 48 49 43 48 20 4d 41 | 43 52 4f 20 44 45 46 49 |WHICH MA|CRO DEFI|
|00000310| 4e 49 54 49 4f 4e 20 44 | 4f 20 59 4f 55 20 57 49 |NITION D|O YOU WI|
|00000320| 53 48 20 54 4f 20 20 20 | 43 41 4e 43 45 4c 20 3f |SH TO   |CANCEL ?|
|00000330| 22 00 3c 1f fa 00 8d 20 | 31 31 33 30 00 4f 1f 04 |".<.... |1130.O..|
|00000340| 01 8b 20 41 24 b2 22 2a | 22 20 a7 20 32 34 30 00 |.. A$."*|" . 240.|
|00000350| 72 1f 0e 01 46 4c 41 47 | 25 28 4d 41 43 4e 55 4d |r...FLAG|%(MACNUM|
|00000360| 29 b2 30 20 3a 20 8f 20 | 43 41 4e 43 45 4c 20 44 |).0 : . |CANCEL D|
|00000370| 45 46 00 7c 1f 18 01 89 | 20 34 37 30 00 b8 1f 2c |EF.|....| 470...,|
|00000380| 01 8b 20 46 4c 41 47 25 | 28 4d 41 43 4e 55 4d 29 |.. FLAG%|(MACNUM)|
|00000390| b3 b1 30 20 a7 20 99 20 | 4d 31 24 20 3a 20 85 20 |..0 . . |M1$ : . |
|000003a0| 42 24 20 3a 20 8b 20 c8 | 28 42 24 2c 31 29 b2 22 |B$ : . .|(B$,1)."|
|000003b0| 59 22 20 a7 20 32 30 30 | 00 cc 1f 40 01 46 4c 41 |Y" . 200|...@.FLA|
|000003c0| 47 25 28 4d 41 43 4e 55 | 4d 29 b2 31 00 e2 1f 4a |G%(MACNU|M).1...J|
|000003d0| 01 4d 41 43 52 4f 24 28 | 4d 41 43 4e 55 4d 29 b2 |.MACRO$(|MACNUM).|
|000003e0| 22 22 00 fc 1f 72 01 8f | 20 44 45 46 49 4e 45 20 |""...r..| DEFINE |
|000003f0| 4d 41 43 52 4f 20 53 54 | 52 49 4e 47 00 0e 20 86 |MACRO ST|RING.. .|
|00000400| 01 99 4d 32 24 3a 20 85 | 20 43 4f 55 4e 54 00 23 |..M2$: .| COUNT.#|
|00000410| 20 90 01 8b 20 43 4f 55 | 4e 54 b1 32 30 20 a7 20 | ... COU|NT.20 . |
|00000420| 33 39 30 00 38 20 a4 01 | 81 20 4c 4f 4f 50 b2 31 |390.8 ..|. LOOP.1|
|00000430| 20 a4 20 43 4f 55 4e 54 | 00 52 20 ae 01 85 22 44 | . COUNT|.R ..."D|
|00000440| 45 43 49 4d 41 4c 20 56 | 41 4c 55 45 20 22 3b 44 |ECIMAL V|ALUE ";D|
|00000450| 45 43 00 7b 20 b8 01 4d | 41 43 52 4f 24 28 4d 41 |EC.{ ..M|ACRO$(MA|
|00000460| 43 4e 55 4d 29 b2 4d 41 | 43 52 4f 24 28 4d 41 43 |CNUM).MA|CRO$(MAC|
|00000470| 4e 55 4d 29 aa c7 28 44 | 45 43 29 00 86 20 c2 01 |NUM)..(D|EC).. ..|
|00000480| 82 20 4c 4f 4f 50 00 b0 | 20 d6 01 85 22 46 49 4e |. LOOP..| ..."FIN|
|00000490| 49 53 48 45 44 20 41 4c | 4c 20 44 45 46 49 4e 49 |ISHED AL|L DEFINI|
|000004a0| 54 49 4f 4e 53 20 28 59 | 2f 4e 29 20 22 3b 42 24 |TIONS (Y|/N) ";B$|
|000004b0| 00 c9 20 e0 01 8b 20 c8 | 28 42 24 2c 31 29 b3 b1 |.. ... .|(B$,1)..|
|000004c0| 22 59 22 20 a7 20 32 30 | 30 00 e2 20 08 02 8f 20 |"Y" . 20|0.. ... |
|000004d0| 43 52 45 41 54 45 20 4d | 41 43 52 4f 20 54 41 42 |CREATE M|ACRO TAB|
|000004e0| 4c 45 00 18 21 1c 02 50 | 54 52 b2 34 ac 34 30 39 |LE..!..P|TR.4.409|
|000004f0| 36 20 3a 20 8f 20 43 52 | 45 41 54 45 20 4d 41 43 |6 : . CR|EATE MAC|
|00000500| 52 4f 20 54 41 42 4c 45 | 20 41 54 20 54 48 49 53 |RO TABLE| AT THIS|
|00000510| 20 41 44 44 52 45 53 53 | 00 2b 21 26 02 81 20 45 | ADDRESS|.+!&.. E|
|00000520| 4e 54 52 59 b2 30 20 a4 | 20 35 31 00 46 21 30 02 |NTRY.0 .| 51.F!0.|
|00000530| 8b 20 46 4c 41 47 25 28 | 45 4e 54 52 59 29 b2 30 |. FLAG%(|ENTRY).0|
|00000540| 20 a7 20 37 35 30 00 72 | 21 44 02 8f 20 43 4f 4e | . 750.r|!D.. CON|
|00000550| 56 45 52 54 20 54 4f 20 | 52 45 56 45 52 53 45 44 |VERT TO |REVERSED|
|00000560| 20 53 43 52 45 45 4e 20 | 43 4f 44 45 20 56 41 4c | SCREEN |CODE VAL|
|00000570| 55 45 00 94 21 4e 02 8b | 20 45 4e 54 52 59 b3 32 |UE..!N..| ENTRY.2|
|00000580| 36 20 a7 20 43 4f 44 45 | b2 45 4e 54 52 59 aa 31 |6 . CODE|.ENTRY.1|
|00000590| aa 31 32 38 00 b8 21 58 | 02 8b 20 45 4e 54 52 59 |.128..!X|.. ENTRY|
|000005a0| b1 32 35 20 a7 20 43 4f | 44 45 b2 20 45 4e 54 52 |.25 . CO|DE. ENTR|
|000005b0| 59 aa 33 39 aa 31 32 38 | 00 fa 21 6c 02 97 20 50 |Y.39.128|..!l.. P|
|000005c0| 54 52 2c 43 4f 44 45 20 | 3a 20 8f 20 31 53 54 20 |TR,CODE |: . 1ST |
|000005d0| 42 59 54 45 20 4f 46 20 | 31 20 4d 41 43 52 4f 20 |BYTE OF |1 MACRO |
|000005e0| 45 4e 54 52 59 20 49 53 | 20 53 43 52 45 45 4e 20 |ENTRY IS| SCREEN |
|000005f0| 43 4f 44 45 20 56 41 4c | 55 45 00 1c 22 76 02 50 |CODE VAL|UE.."v.P|
|00000600| 54 52 b2 50 54 52 aa 31 | 20 3a 20 8f 20 4e 45 58 |TR.PTR.1| : . NEX|
|00000610| 54 20 54 41 42 4c 45 20 | 42 59 54 45 00 56 22 8a |T TABLE |BYTE.V".|
|00000620| 02 97 20 50 54 52 2c c3 | 28 4d 41 43 52 4f 24 28 |.. PTR,.|(MACRO$(|
|00000630| 45 4e 54 52 59 29 29 aa | 32 20 3a 20 8f 20 32 4e |ENTRY)).|2 : . 2N|
|00000640| 44 20 42 59 54 45 20 49 | 53 20 45 4e 54 52 59 20 |D BYTE I|S ENTRY |
|00000650| 4c 45 4e 47 54 48 00 78 | 22 94 02 50 54 52 b2 50 |LENGTH.x|"..PTR.P|
|00000660| 54 52 aa 31 20 3a 20 8f | 20 4e 45 58 54 20 54 41 |TR.1 : .| NEXT TA|
|00000670| 42 4c 45 20 42 59 54 45 | 00 bd 22 a8 02 81 20 49 |BLE BYTE|.."... I|
|00000680| 4c 4f 4f 50 b2 31 20 a4 | 20 c3 28 4d 41 43 52 4f |LOOP.1 .| .(MACRO|
|00000690| 24 28 45 4e 54 52 59 29 | 29 20 3a 20 8f 20 52 45 |$(ENTRY)|) : . RE|
|000006a0| 53 54 20 4f 46 20 31 20 | 45 4e 54 52 59 20 49 53 |ST OF 1 |ENTRY IS|
|000006b0| 20 4d 41 43 52 4f 20 53 | 54 52 49 4e 47 00 e3 22 | MACRO S|TRING.."|
|000006c0| b2 02 97 20 50 54 52 2c | c6 28 ca 28 4d 41 43 52 |... PTR,|.(.(MACR|
|000006d0| 4f 24 28 45 4e 54 52 59 | 29 2c 49 4c 4f 4f 50 2c |O$(ENTRY|),ILOOP,|
|000006e0| 31 29 29 00 f1 22 bc 02 | 50 54 52 b2 50 54 52 aa |1)).."..|PTR.PTR.|
|000006f0| 31 00 fd 22 c6 02 82 20 | 49 4c 4f 4f 50 00 37 23 |1.."... |ILOOP.7#|
|00000700| da 02 8b 20 50 54 52 b2 | b1 34 ac 34 30 39 36 aa |... PTR.|.4.4096.|
|00000710| 35 30 30 20 a7 20 99 22 | 11 4d 41 43 52 4f 20 54 |500 . ."|.MACRO T|
|00000720| 41 42 4c 45 20 54 4f 4f | 20 4c 41 52 47 45 20 21 |ABLE TOO| LARGE !|
|00000730| 21 21 22 20 3a 20 90 00 | 43 23 ee 02 82 20 45 4e |!!" : ..|C#... EN|
|00000740| 54 52 59 00 5a 23 16 03 | 8f 20 53 41 56 45 20 4d |TRY.Z#..|. SAVE M|
|00000750| 41 43 52 4f 20 54 41 42 | 4c 45 00 6c 23 34 03 99 |ACRO TAB|LE.l#4..|
|00000760| 22 93 11 11 38 20 2d 20 | 44 49 53 4b 00 7b 23 3e |"...8 - |DISK.{#>|
|00000770| 03 99 22 39 20 2d 20 44 | 49 53 4b 00 9d 23 48 03 |.."9 - D|ISK..#H.|
|00000780| 85 22 53 41 56 45 20 54 | 4f 20 44 45 56 49 43 45 |."SAVE T|O DEVICE|
|00000790| 20 4e 55 4d 42 45 52 20 | 22 3b 44 45 56 00 c2 23 | NUMBER |";DEV..#|
|000007a0| 52 03 8b 20 44 45 56 b3 | b1 31 20 af 20 44 45 56 |R.. DEV.|.1 . DEV|
|000007b0| b3 b1 38 20 af 20 44 45 | 56 b3 b1 39 20 a7 20 38 |..8 . DE|V..9 . 8|
|000007c0| 34 30 00 de 23 66 03 8f | 20 55 53 45 20 54 48 45 |40..#f..| USE THE|
|000007d0| 20 4b 45 52 4e 41 4c 20 | 53 45 54 4c 46 53 00 fa | KERNAL |SETLFS..|
|000007e0| 23 70 03 97 20 41 2c 30 | 20 3a 20 97 20 58 2c 44 |#p.. A,0| : . X,D|
|000007f0| 45 56 20 3a 20 97 20 59 | 2c 30 00 06 24 7a 03 9e |EV : . Y|,0..$z..|
|00000800| 20 36 35 34 36 36 00 1b | 24 8e 03 8f 20 53 45 54 | 65466..|$... SET|
|00000810| 55 50 20 46 49 4c 45 4e | 41 4d 45 00 35 24 98 03 |UP FILEN|AME.5$..|
|00000820| 42 24 b2 22 52 55 4e 53 | 43 52 49 50 54 20 4d 41 |B$."RUNS|CRIPT MA|
|00000830| 43 52 4f 53 22 00 4a 24 | a2 03 81 20 4c 4f 4f 50 |CROS".J$|... LOOP|
|00000840| b2 31 20 a4 20 c3 28 42 | 24 29 00 69 24 ac 03 97 |.1 . .(B|$).i$...|
|00000850| 20 38 34 39 aa 4c 4f 4f | 50 2c c6 28 ca 28 42 24 | 849.LOO|P,.(.(B$|
|00000860| 2c 4c 4f 4f 50 2c 31 29 | 29 00 74 24 b6 03 82 20 |,LOOP,1)|).t$... |
|00000870| 4c 4f 4f 50 00 8c 24 ca | 03 8f 20 55 53 45 20 4b |LOOP..$.|.. USE K|
|00000880| 45 52 4e 41 4c 20 53 45 | 54 4e 41 4d 00 b6 24 d4 |ERNAL SE|TNAM..$.|
|00000890| 03 97 20 41 2c c3 28 42 | 24 29 20 3a 20 97 20 58 |.. A,.(B|$) : . X|
|000008a0| 2c 38 35 30 af 32 35 35 | 20 3a 20 97 20 59 2c 38 |,850.255| : . Y,8|
|000008b0| 35 30 ad 32 35 36 00 c2 | 24 de 03 9e 20 36 35 34 |50.256..|$... 654|
|000008c0| 36 39 00 d8 24 f2 03 8f | 20 55 53 45 20 4b 45 52 |69..$...| USE KER|
|000008d0| 4e 41 4c 20 53 41 56 45 | 00 f1 24 fc 03 97 20 32 |NAL SAVE|..$... 2|
|000008e0| 35 33 2c 30 20 3a 20 97 | 20 32 35 34 2c 34 ac 31 |53,0 : .| 254,4.1|
|000008f0| 36 00 19 25 06 04 97 20 | 41 2c 32 35 33 20 3a 20 |6..%... |A,253 : |
|00000900| 97 20 58 2c 50 54 52 af | 32 35 35 20 3a 20 97 20 |. X,PTR.|255 : . |
|00000910| 59 2c 50 54 52 ad 32 35 | 36 00 25 25 10 04 9e 20 |Y,PTR.25|6.%%... |
|00000920| 36 35 34 39 36 00 2b 25 | 2e 04 80 00 42 25 56 04 |65496.+%|....B%V.|
|00000930| 8f 20 49 4e 50 55 54 20 | 53 55 42 52 4f 55 54 49 |. INPUT |SUBROUTI|
|00000940| 4e 45 00 58 25 6a 04 85 | 20 41 24 20 3a 20 41 24 |NE.X%j..| A$ : A$|
|00000950| b2 c8 28 41 24 2c 31 29 | 00 69 25 7e 04 8b 20 41 |..(A$,1)|.i%~.. A|
|00000960| 24 b2 22 2a 22 20 a7 20 | 8e 00 7d 25 88 04 8b 20 |$."*" . |..}%... |
|00000970| 41 24 b3 22 41 22 20 a7 | 20 31 31 33 30 00 91 25 |A$."A" .| 1130..%|
|00000980| 92 04 8b 20 41 24 b1 22 | da 22 20 a7 20 31 31 33 |... A$."|." . 113|
|00000990| 30 00 ae 25 9c 04 8b 20 | 41 24 b1 22 5a 22 20 af |0..%... |A$."Z" .|
|000009a0| 20 41 24 b3 22 c1 22 20 | a7 20 31 31 33 30 00 ce | A$."." |. 1130..|
|000009b0| 25 b0 04 8b 20 41 24 b3 | b2 22 5a 22 20 a7 20 4d |%... A$.|."Z" . M|
|000009c0| 41 43 4e 55 4d b2 c6 28 | 41 24 29 ab 36 35 00 ef |ACNUM..(|A$).65..|
|000009d0| 25 ba 04 8b 20 41 24 b1 | b2 22 c1 22 20 a7 20 4d |%... A$.|."." . M|
|000009e0| 41 43 4e 55 4d b2 c6 28 | 41 24 29 ab 31 36 37 00 |ACNUM..(|A$).167.|
|000009f0| f5 25 ce 04 8e 00 00 00 | 00                      |.%......|.       |
+--------+-------------------------+-------------------------+--------+--------+